<!--#include virtual="/Common/Config.asp" -->
<!--#include virtual="/Common/conn.asp" -->
<!--#include virtual="/Common/Function.asp" -->
<%

Response.Expires = 0
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"

Response.ContentType="text/html" 

Big_ID = reform("Big_ID")

sql = "SELECT ID,Corp_Type_Name from Corp_Type WHERE Parent_ID=" &Big_ID& " ORDER BY Corp_Order ASC"

Set rsTemp = conn.execute(sql)


Do While Not rsTemp.eof
	return_name = return_name&rsTemp("ID")&","&rsTemp("Corp_Type_Name")&"|"
	rsTemp.movenext
Loop

If Len(return_name)>1 Then	
	return_name = Left(return_name,Len(return_name)-1)
End If

Set rsTemp = Nothing

Conn_Close()

Response.Write return_name

%>